Top 10k strings from Suffrage (19xx)(Garry Rowland).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
2 y,x;i$;" ";
2 y+i,x;"_":
2 t(p)=v(c,p):
2 t(p)=t(p)-
2 ;"Party List";
2 );"% ";p$(
1 y,x;t(p);" ";
1 y,x;i$;"_ ";
1 y,x;"%choose ";p$(d);
1 v=v+v(c+s,p)/100
1 v=v*((t(p)-q)/t(p))
1 v=v(c,p)/100
1 v(d,p)=v(d,p)+t(p):
1 v(c,p)=v(c,p)-t(p):
1 v(c,p)=v(c,p)+n:
1 v(c,p)=v(c,p)+d:
1 v(c,p)=t(p):
1 v(c,d(p))=n:
1 t(s(c))=t(s(c))+1
1 t(p)=v(c,p)+v(c+s,p):
1 t(p)=t(p)-q:
1 t(p)=t(p)-n
1 t(p)=t(p)-d:
1 t(p)=t(p)- (
1 t(p)=t(p)+v(c,p)
1 t(p)=t(p)+
1 t(d)=t(d)+v
1 t(d(p))> t(d(p-1
1 t(d(p))=t(d(p))-n:
1 s(s)=d(p):
1 s(c+s)=d(1
1 r(d)=r(d)+t(p):
1 r(c)=r(c)-t(p):
1 or more information on the PFN print system, write to: G. Rowland, 24 Parsloes Avenue, DAGENHAM RM9 5NX
1 n> t(d(p))
1 n=n+v(c,p):
1 l(p));"?";
1 l(p));" voters to move?";
1 l(p));" party (";c(c,p,1
1 l(d(p)));" party"
1 l(d(p)));" party ";
1 i=i+p(p)/100
1 i< p(d(p))
1 i(p);p$(p);
1 i(d(p));p$(d(p),
1 i$=" "
1 d(p)=d(p-1
1 d(p)=d(p)+1
1 Y`]`N`N`D`
1 Votes graph
1 Total share
1 Take poll from sample of 100 voters from each constituency
1 Suffrage s>
1 Subtract upto a quarter of undecideds
1 Sort party in vote order
1 Single Transferable Vote
1 Seats graph
1 SUFFRAGE? by G. Rowland (PUBLIC DOMAIN)
1 Redistribute 2nd choice votes
1 Randomize voting distribution
1 Print suffrage data
1 Print election results
1 Plurality vote
1 Party list (rmd.) vote
1 Party list (avg.) vote
1 PFN-PRINT3
1 PFN-LENGTH3
1 PFN print system
1 Numeric input
1 Move voters
1 Majority Vote
1 Get voting preference
1 Get second preference
1 Eliminate weakest candidate
1 Election results
1 Display data for selected constituency
1 Count number of seats
1 Cls & title
1 Clear bottom window
1 Award remainder seats
1 Allocate STV seat
1 Adjust distribution
1 ;c(c,p,a);"% ";p$(d);:
1 ;"|CORRECT? (Y/N)|";
1 ;"| Suffrage? |";
1 ;"{L9886}|E L E C T I O N N I G H T|":
1 ;"{L9886}Voting Preference:"
1 ;"{L9886}Printing suffrage data{L9884}"
1 ;"{L9886}Moving voters from ";c$;" to ";
1 ;"{L9886}Move voters from constituency ";c$;"{L9884}":
1 ;"{L9886}Constituency ";c$;" second Preference:{L9884}":
1 ;"{L9886}Constituency ";c$;" second Preference:{L9884}"
1 ;"{L9886}Constituency ";c$
1 ;"{L9886":
1 ;"{L9884}|THE RAND POLL RESULTS:";
1 ;"{L9884}by Garry Rowland (PUBLIC DOMAIN)"
1 ;"{L9884}POPULATION: ";r(c);
1 ;"{L9884":
1 ;"VOTING SYSTEMS";
1 ;"VOTING PREFERENCE"'
1 ;"VOTES%":
1 ;"TURN-OUT: ";n:
1 ;"SECOND PREFERENCE"'
1 ;"SAVE PROGRAM";
1 ;"Plurality";
1 ;"PRINT DATA"'
1 ;"PRESS SPACE TO RETURN TO MENU";
1 ;"Majority";
1 ;"MOVE VOTERS"'
1 ;"MOVE TO WHICH CONSTITUENCY? (A-";
1 ;"Key A-";
1 ;"Key 1-6 selects menu options"'
1 ;"How many of ";v(c,p);" ";p$(p,
1 ;"ELECTION"'
1 ;"ELECTION RESULTS:|":
1 ;"(remainder)"
1 ;"(average)";
1 ;"% to vote for ";p$(p,
1 ;" RANDOMIZING POPULATION DISTRIBUTION ":
1 ;" ";v(c,p);" ";
1 50% of district vote
1 3= 2 seats +1
1 23638-82":
1 23637+256*
1 -n;"% of voters."
1 +nc);" to select constituency"
1 *c(c+s,p,a):
1 )=i+i+(i=2
1 )="YELLOW":
1 );"{L9884}"
1 );"% Yellow party"''"DISTRIBUTION OF VOTES & 2ND CHOICE (%)"
1 );"% Red party"'p(2
1 );"% Blue party"'p(3
1 );" voting)"
1 );" - Population ";r(c);" (";v(c,1
1 ));c(c,p,2
1 ));c(c,p,1
1 ));", ";c(c,p,2
1 (v(c,p)/n)
1 (t(p)/d(p)+.5
1 (t(d(p))/n);"%";(","
1 (t(d(p))/(nc-c)):
1 (t(d(p))/(nc-c))
1 (t(d(p))*100
1 (p(d(p))-i)
1 (d*i*p(p)/100
1 '"SUFFRAGE EXERCISED BY ";n;" VOTERS"'"First preference votes:"'p(1
1 '"EFFECTIVE SUFFRAGE"'
1 '" STV VOTING SYSTEM":
1 '" PLURALITY VOTING SYSTEM":
1 '" PARTY LIST (greatest remainder) VOTING SYSTEM":
1 '" PARTY LIST (average) VOTING SYSTEM":
1 '" MAJORITY VOTING SYSTEM":
1 '" Constituency ";
1 "SUFFRAGE"
1 " Suffrage effective for ";100
1 " ";v(c,p);" vote for ";p$(p,
1 " ";t(d(p));" seats (";i;"%) held by ";p$(d(p),
1 " ";n;"% of vote wasted"